object FClientes: TFClientes
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  Caption = 'Clientes'
  ClientHeight = 267
  ClientWidth = 520
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PnCad: TPanel
    Left = 0
    Top = 62
    Width = 520
    Height = 170
    Align = alClient
    BevelInner = bvSpace
    Enabled = False
    TabOrder = 1
    object Label1: TLabel
      Left = 6
      Top = 5
      Width = 27
      Height = 13
      Caption = 'Nome'
      FocusControl = DBEdit1
    end
    object Label2: TLabel
      Left = 6
      Top = 46
      Width = 45
      Height = 13
      Caption = 'Endere'#231'o'
      FocusControl = DBEdit2
    end
    object Label3: TLabel
      Left = 6
      Top = 84
      Width = 28
      Height = 13
      Caption = 'Bairro'
      FocusControl = DBEdit3
    end
    object Label4: TLabel
      Left = 210
      Top = 84
      Width = 33
      Height = 13
      Caption = 'Cidade'
      FocusControl = DBEdit4
    end
    object Label5: TLabel
      Left = 416
      Top = 84
      Width = 42
      Height = 13
      Caption = 'Telefone'
      FocusControl = DBEdit5
    end
    object Label6: TLabel
      Left = 91
      Top = 126
      Width = 82
      Height = 13
      Caption = 'Total de Cr'#233'ditos'
      FocusControl = DBEdit3
    end
    object Label8: TLabel
      Left = 218
      Top = 126
      Width = 78
      Height = 13
      Caption = 'Total de D'#233'bitos'
      FocusControl = DBEdit3
    end
    object Label9: TLabel
      Left = 363
      Top = 126
      Width = 52
      Height = 13
      Caption = 'Total Geral'
      FocusControl = DBEdit3
    end
    object DBEdit1: TDBEdit
      Left = 6
      Top = 20
      Width = 507
      Height = 21
      CharCase = ecUpperCase
      DataField = 'Nome'
      DataSource = dsClientes
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 6
      Top = 61
      Width = 507
      Height = 21
      CharCase = ecUpperCase
      DataField = 'Endereco'
      DataSource = dsClientes
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 6
      Top = 98
      Width = 197
      Height = 21
      CharCase = ecUpperCase
      DataField = 'Bairro'
      DataSource = dsClientes
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 210
      Top = 98
      Width = 200
      Height = 21
      CharCase = ecUpperCase
      DataField = 'Cidade'
      DataSource = dsClientes
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 416
      Top = 98
      Width = 97
      Height = 21
      DataField = 'Telefone'
      DataSource = dsClientes
      TabOrder = 4
    end
    object Panel4: TPanel
      Left = 72
      Top = 141
      Width = 115
      Height = 21
      BevelInner = bvLowered
      TabOrder = 5
      object DBText1: TDBText
        Left = 2
        Top = 2
        Width = 111
        Height = 17
        Align = alClient
        Alignment = taRightJustify
        DataField = 'TotalCredito'
        DataSource = dsClientes
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        ExplicitLeft = 4
        ExplicitTop = 16
        ExplicitWidth = 477
        ExplicitHeight = 18
      end
    end
    object Panel5: TPanel
      Left = 201
      Top = 141
      Width = 115
      Height = 21
      BevelInner = bvLowered
      TabOrder = 6
      object DBText2: TDBText
        Left = 2
        Top = 2
        Width = 111
        Height = 17
        Align = alClient
        Alignment = taRightJustify
        DataField = 'TotalDebito'
        DataSource = dsClientes
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        ExplicitLeft = 4
        ExplicitTop = 16
        ExplicitWidth = 477
        ExplicitHeight = 18
      end
    end
    object Panel6: TPanel
      Left = 332
      Top = 141
      Width = 115
      Height = 21
      BevelInner = bvLowered
      TabOrder = 7
      object DBText3: TDBText
        Left = 2
        Top = 2
        Width = 111
        Height = 17
        Align = alClient
        Alignment = taRightJustify
        DataField = 'Total'
        DataSource = dsClientes
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -13
        Font.Name = 'Tahoma'
        Font.Style = [fsBold]
        ParentFont = False
        ExplicitTop = 4
      end
    end
  end
  object PnBusca: TPanel
    Left = 0
    Top = 0
    Width = 520
    Height = 62
    Align = alTop
    BevelInner = bvSpace
    TabOrder = 0
    DesignSize = (
      520
      62)
    object Label7: TLabel
      Left = 88
      Top = 20
      Width = 64
      Height = 13
      Caption = 'Busca R'#225'pida'
    end
    object EdBusca: TEdit
      Left = 88
      Top = 34
      Width = 145
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      CharCase = ecUpperCase
      TabOrder = 0
    end
    object BitBtn3: TBitBtn
      Left = 243
      Top = 30
      Width = 92
      Height = 26
      Hint = 'Excluir Evento'
      Anchors = [akTop, akRight]
      Caption = 'Localizar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BitBtn3Click
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        A87D78B78183B78183B78183B78183B78183B78183B78183B78183B78183B781
        83B78183FF00FFFF00FFFF00FFFF00FFA87D78FDF6E6FFF2DFFFF2DFFFF2DFFF
        F2DFFEF0DCFEF0DCFEF0DCFEF0DCF9F1DBB78183FF00FFFF00FFFF00FFFF00FF
        A87D78F9EFE1FECC9AFECC9AFECC9AFECC9AFECC9AFECC9AFECC9AFECC9AF5E9
        D4B78183FF00FFFF00FFFF00FFFF00FFA87D78FAF3E6FBEEDFFBEDDEFBEDDDFA
        ECDCFAECDBFAECDBFAECDBFAECDBF4E9D5B78183FF00FFFF00FFFF00FFFF00FF
        A87D78EFE9DEFECC9AFECC9AFECC9AFECC9AFECC9AFECC9AFECC9AFECC9AE8DD
        C9B78183FF00FFFF00FFFF00FFFF00FFAD8D82BCB3AAB9AFA8B8AEA7B8AEA4B7
        ACA2B6ABA0B5AA9EB5A99CB5A79BB7A999AD857FFF00FFFF00FFA35228A35228
        A35228A35228A35228A35228A35228A35228A35228A35228A35228A35228A352
        28A35228A35228A35228A35228FF00FFBA8E82E7EEEFE88E60E88E60E88E60E8
        8E60E88E60E88E60E88E60E88E60E0E1D6B78183FF00FFA24F23A35227A35228
        A35228A35228A35228A35228A35228A35228A35228A35228A35228A35228A352
        28A35228A35228A35228FF00FFFF00FFC29685E0C1B0DCC0B2DCC0B2D9BCACD8
        BBAAD8BAA9D7B8A7D6B8A6D6B6A2DEBAA3B78183FF00FFFF00FFFF00FFFF00FF
        CA9C88FFFFFFFFEACFFFE9CEFFE9CDFFE9CDFFE9CDFFE9CDFFE9CDFFE9CDFFFD
        F3B78183FF00FFFF00FFFF00FFFF00FFD2A38AFFFFFFFECC9AFECC9AFECC9AFE
        CC9AFECC9AFECC9AFECC9AFECC9AFCF8EEB78183FF00FFFF00FFFF00FFFF00FF
        D7A78CFFFFFFFEFFFFFEFFFFFEFEFEFEFCFBFCFBF9FCFAF8FBF9F6FAF7F4FDFB
        F4B78183FF00FFFF00FFFF00FFFF00FFDEAD8FFFFFFFFECC9AFECC9AFECC9AFE
        CC9AFECC9AFECC9AFECC9AFECC9AFFFDF7B78183FF00FFFF00FFFF00FFFF00FF
        DEAD8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFFFEFBFFFF
        FFB78183FF00FFFF00FFFF00FFFF00FFDEAD8FDAA482DAA482DAA482DAA482DA
        A482DAA482DAA482DAA482DAA482DAA482B78183FF00FFFF00FF}
    end
    object DBNavigator1: TDBNavigator
      Left = 243
      Top = 2
      Width = 268
      Height = 18
      DataSource = dsClientes
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      Hints.Strings = (
        'Primeiro'
        'Anterior'
        'Pr'#243'ximo'
        #218'ltimo')
      TabOrder = 2
    end
    object RadioGroup1: TRadioGroup
      Left = 6
      Top = 4
      Width = 76
      Height = 52
      Caption = 'Busca por'
      ItemIndex = 0
      Items.Strings = (
        'Inicial'
        'Qualq. P.')
      TabOrder = 3
    end
    object BitBtn1: TBitBtn
      Left = 341
      Top = 30
      Width = 172
      Height = 26
      Hint = 'Excluir Evento'
      Anchors = [akTop, akRight]
      Caption = 'Visualizar Lan'#231'amentos'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BitBtn1Click
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        A46769A46769A46769A46769A46769A46769A46769A46769A46769A46769A467
        69A46769A46769FF00FFFF00FFFF00FF485360FEE9C7F4DAB5F3D5AAF2D0A0EF
        CB96EFC68BEDC182EBC17FEBC180EBC180F2C782A46769FF00FFFF00FF4380B7
        1F6FC2656B86F3DABCF2D5B1F0D0A7EECB9EEDC793EDC28BE9BD81E9BD7FE9BD
        7FEFC481A46769FF00FFFF00FFFF00FF32A3FF1672D76B6A80F2DABCF2D5B2EF
        D0A9EECB9EEDC796EBC28CE9BD82E9BD7FEFC481A46769FF00FFFF00FFFF00FF
        A0675B34A1FF1572D45E6782F3DABBF2D5B1F0D0A6EECB9EEDC795EBC28AEABF
        81EFC480A46769FF00FFFF00FFFF00FFA7756BFFFBF033A6FF4078AD8E675EAC
        7F7597645EAC7D6FCAA083EDC695EBC28AEFC583A46769FF00FFFF00FFFF00FF
        A7756BFFFFFCFAF0E6AD8A88B78F84D8BAA5EED5B6D7B298B58877CBA083EBC7
        93F2C98CA46769FF00FFFF00FFFF00FFBC8268FFFFFFFEF7F2AF847FDAC0B4F7
        E3CFF6E0C5FFFFF4D7B198AC7D6FEECC9EF3CE97A46769FF00FFFF00FFFF00FF
        BC8268FFFFFFFFFEFC976560F6E9E0F7EADAF6E3CFFFFFEBEFD4B797645EF0D0
        A6F6D3A0A46769FF00FFFF00FFFF00FFD1926DFFFFFFFFFFFFB08884DECAC4FA
        EFE5F8EAD9FFFFD4D9B8A5AC7F74F4D8B1EBCFA4A46769FF00FFFF00FFFF00FF
        D1926DFFFFFFFFFFFFD5BFBCBA9793DECAC4F6E9DEDAC0B4B78F84B28C7BDECE
        B4B6AA93A46769FF00FFFF00FFFF00FFDA9D75FFFFFFFFFFFFFFFFFFD5BFBCB0
        8884976560AF867FCAA79DA56B5FA56B5FA56B5FA46769FF00FFFF00FFFF00FF
        DA9D75FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFEFBFFFEF7DAC1BAA56B5FE19E
        55E68F31B56D4DFF00FFFF00FFFF00FFE7AB79FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFDCC7C5A56B5FF8B55CBF7A5CFF00FFFF00FFFF00FFFF00FF
        E7AB79FBF4F0FBF4EFFAF3EFFAF3EFF8F2EFF7F2EFF7F2EFD8C2C0A56B5FC183
        6CFF00FFFF00FFFF00FFFF00FFFF00FFE7AB79D1926DD1926DD1926DD1926DD1
        926DD1926DD1926DD1926DA56B5FFF00FFFF00FFFF00FFFF00FF}
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 232
    Width = 520
    Height = 35
    Align = alBottom
    BevelInner = bvSpace
    TabOrder = 2
    object BtAlter: TBitBtn
      Left = 91
      Top = 5
      Width = 81
      Height = 26
      Caption = 'Alterar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BtAlterClick
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        A59380A59380A59380FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FF18741DCAC5AADBCFC8DBD0C4F2DFCBA59380A59380A5
        9380A59380FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF158A2DCADABB
        DDD1CCD2CFCCFFF2E0FFF0DAFFEBD0FFE8C6FFE6BEA59380A59380A59380FF00
        FFFF00FFFF00FFFF00FF00710EBBD5B4D7CCCBD2CFCCF1E7DA70685F70685FD2
        B9A5E2C6AAE5C6A3FFDDAFA59380FF00FFFF00FFFF00FFFF00FF006F0398BA95
        D9CFD2D2CFCCE9E3DAD4C9BDD0C9B270685F70685F70685FF9D2AFA59380FF00
        FFFF00FFFF00FFFF00FF00680082A980D5CED1D2CFCCEAE6E270685F3B7F3410
        5F10105C101B6718105D100F5E0F0F5F0FFF00FFFF00FFFF00FF006200699C6A
        D3CFD2D2CFCCD9D5D68CA1850C690D087C08009700038C03067B060970090C66
        0C0F5F0F0F5E0F096109FF00FF468347D2CFCCD2CFCCD7D6D52579280E6D120A
        A214049D08009900009A00009B00009D00009D00017A01026302FF00FF317531
        D2CFCCFFFBFF6B986A0F61111AAC3213AC280DA61B07A00D029B03009900009C
        00008500006500FF00FFFF00FF0E5E0ED2CFCCEBF2E914661720A03D24BC481D
        B63B17B02F11AA220BA31505A10A008A00006600FF00FFFF00FFFF00FF055D05
        B9B4B83E833F157C2633CD682DC55C27BF4F21B9411AB33515B02B0B9B170168
        01FF00FFFF00FFFF00FFFF00FF04640451734F1464172FC76233CB6732CF682F
        CC622AC95726BF4C1BAC35046F07FF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        156D1C2A72393BA0603A975A399A5A37AA6037A25C2BC559087810FF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF454A433F57422D5A302F623533603A32
        7341376B43118220FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FF454A43454A43454A4343504543514538563AFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
    object BitBtn4: TBitBtn
      Left = 432
      Top = 5
      Width = 81
      Height = 26
      Caption = 'Sair'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = BitBtn4Click
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FF9A6666693334FF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9A66669A6666B96666BB
        6868693334FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        9A66669A6666C66A6BD06A6BD26869C368696933349A66669A66669A66669A66
        669A66669A6666FF00FFFF00FFFF00FF9A6666DE7374D77071D56F70D56D6EC7
        6A6D693334FEA2A3FCAFB0FABCBDF9C5C6F9C5C69A6666FF00FFFF00FFFF00FF
        9A6666E07778DB7576DA7475DA7273CC6E7169333439C56525CF6329CC6319CB
        5BF9C5C69A6666FF00FFFF00FFFF00FF9A6666E57D7EE07A7BDF797ADF7778D0
        727569333442C46830CD6733CB6724CB60F9C5C69A6666FF00FFFF00FFFF00FF
        9A6666EA8283E57F80E37D7EE68081D374766933343DC26429CB632FCA6420CA
        5EF9C5C69A6666FF00FFFF00FFFF00FF9A6666F08788E98182EC9697FBDDDED8
        888A693334B8E1AC6BDC895DD58046D473F9C5C69A6666FF00FFFF00FFFF00FF
        9A6666F58C8DEE8687F0999AFDDCDDDA888A693334FFF5D8FFFFE0FFFFDEECFD
        D4F9C5C69A6666FF00FFFF00FFFF00FF9A6666FA9192F48E8FF28B8CF48C8DDC
        7F80693334FDF3D4FFFFDFFFFFDDFFFFE0F9C5C69A6666FF00FFFF00FFFF00FF
        9A6666FE9798F99394F89293F99092E08585693334FDF3D4FFFFDFFFFFDDFFFF
        DFF9C5C69A6666FF00FFFF00FFFF00FF9A6666FF9B9CFD9798FC9697FE9798E3
        8889693334FDF3D4FFFFDFFFFFDDFFFFDFF9C5C69A6666FF00FFFF00FFFF00FF
        9A6666FF9FA0FF9A9BFF999AFF9A9BE78C8D693334FDF3D4FFFFDFFFFFDDFFFF
        DFF9C5C69A6666FF00FFFF00FFFF00FF9A66669A6666E98E8FFE999AFF9D9EEB
        8F90693334FBF0D2FDFCDCFDFCDAFDFCDCF9C5C69A6666FF00FFFF00FFFF00FF
        FF00FFFF00FF9A6666B07172D78687DA88886933349A66669A66669A66669A66
        669A66669A6666FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF9A66669A
        6666693334FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
    object BtAdd: TBitBtn
      Left = 6
      Top = 5
      Width = 81
      Height = 26
      Caption = 'Adicionar'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BtAddClick
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08
        780E08780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF08780E76F9A70DA31B08780EFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08780E76
        F9A70EAA1D08780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF08780E76F9A70EA81C08780EFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08780E76
        F9A710AA1F08780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        08780E08780E08780E08780E08780E76F9A719B02C08780E08780E08780E0878
        0E08780EFF00FFFF00FFFF00FF08780E76F9A755E38349DA7242D36837C8562A
        B94322B3371CB23016AF270FA81D0EA91B0DA21B08780EFF00FFFF00FF08780E
        76F9A776F9A776F9A776F9A776F9A776F9A72CBB4876F9A776F9A776F9A776F9
        A776F9A708780EFF00FFFF00FFFF00FF08780E08780E08780E08780E08780E76
        F9A73CCB5D08780E08780E08780E08780E08780EFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF08780E76F9A749D97208780EFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08780E76
        F9A755E28208780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FF08780E76F9A763F09708780EFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF08780E76
        F9A776F9A708780EFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FF08780E08780EFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
    object BtGrav: TBitBtn
      Left = 175
      Top = 5
      Width = 81
      Height = 26
      Caption = 'Gravar'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BtGravClick
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF006600006600B59A9BB59A9BB59A9BB5
        9A9BB59A9BB59A9BB59A9B006600006600FF00FFFF00FFFF00FFFF00FF006600
        009900009900E5DEDF006600006600E4E7E7E0E3E6D9DFE0CCC9CC006600037D
        03006600FF00FFFF00FFFF00FF006600009900009900E9E2E2006600006600E2
        E1E3E2E6E8DDE2E4CFCCCF006600037D03006600FF00FFFF00FFFF00FF006600
        009900009900ECE4E4006600006600DFDDDFE1E6E8E0E5E7D3D0D2006600037D
        03006600FF00FFFF00FFFF00FF006600009900009900EFE6E6EDE5E5E5DEDFE0
        DDDFDFE0E2E0E1E3D6D0D2006600037D03006600FF00FFFF00FFFF00FF006600
        0099000099000099000099000099000099000099000099000099000099000099
        00006600FF00FFFF00FFFF00FF006600009900B1D0B1B1D0B1B1D0B1B1D0B1B1
        D0B1B1D0B1B1D0B1B1D0B1B1D0B1009900006600FF00FFFF00FFFF00FF006600
        009900F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F90099
        00006600FF00FFFF00FFFF00FF006600009900F9F9F9F9F9F9F9F9F9F9F9F9F9
        F9F9F9F9F9F9F9F9F9F9F9F9F9F9009900006600FF00FFFF00FFFF00FF006600
        009900F9F9F9CDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDF9F9F90099
        00006600FF00FFFF00FFFF00FF006600009900F9F9F9F9F9F9F9F9F9F9F9F9F9
        F9F9F9F9F9F9F9F9F9F9F9F9F9F9009900006600FF00FFFF00FFFF00FF006600
        009900F9F9F9CDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDCDF9F9F90099
        00006600FF00FFFF00FFFF00FF006600009900F9F9F9F9F9F9F9F9F9F9F9F9F9
        F9F9F9F9F9F9F9F9F9F9F9F9F9F9009900006600FF00FFFF00FFFF00FFFF00FF
        006600F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F9F90066
        00FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
    object BtCancel: TBitBtn
      Left = 261
      Top = 5
      Width = 81
      Height = 26
      Caption = 'Cancelar'
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = BtCancelClick
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FF006A00006A00006A00006A00006A00006A00006A00006A
        00006A00006A00006A0095655FA5696AA5696AA5696AA5696A006A00FFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF006A00986860FBE5C0
        F4D5ADF0CF9FEFCA96006A00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFF006A009D6B62FCE7C9F2D5B5F0D0A9EECB9E006A00FFFFFF78
        BB78006A001C831CFAFCFA6AB46A006A004DA34DFFFFFF006A00A36F64FEEED4
        F4DDC0F2D7B5F0D1AA006A00FFFFFFFFFFFFB4DAB4016C010D780D006A006AB4
        6AFFFFFFFFFFFF006A00A77466FFF4E1F6E1CAF3DCBFF2D7B4006A00FFFFFFFF
        FFFFFFFFFF4EA44E006A000A760AFAFCFAFFFFFFFFFFFF006A00AD7869FFFBEE
        F7E7D5F4E1CAF3DCBF006A00FFFFFFFFFFFF5FAD5F006A004AA14A016C012389
        23EEF7EEFFFFFF006A00B47E6BFFFFFBF8EDE1F7E6D4F6E1C9006A00FFFFFF46
        9F46006A0060AD60FFFFFFBBDDBB016B01238923FFFFFF006A00BA836DFFFFFF
        FCF4EEFAEDE1F8E9D5006A00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFF006A00BF8770FFFFFFFFFBFAFEF4EDFAEEE0006A00FFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF006A00C48C72FFFFFF
        FFFFFFFFFCFAFCF4ED006A00006A00006A00006A00006A00006A00006A00006A
        00006A00006A00006A00CA9174FFFFFFFFFFFFFFFFFFFFFCFAFCF4EDFAEDDEF8
        E7D4FCEBD3E3D3BBB7AD9CA5696AFF00FFFF00FFFF00FFFF00FFCE9576FFFFFF
        FFFFFFFFFFFFFFFFFFFEFCFAFCF6EBFAEFE0A5696AA5696AA5696AA5696AFF00
        FFFF00FFFF00FFFF00FFD39778FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFCF4
        EBE6A5696AE2A35BEF9938BB704FFF00FFFF00FFFF00FFFF00FFD59A79FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF8F8FEA5696AE5A55FC2805CFF00FFFF00
        FFFF00FFFF00FFFF00FFD0906BD0906BD0906BD0906BD0906BD0906BD0906BD0
        906BA5696ABB7F6AFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
    object BtExcl: TBitBtn
      Left = 347
      Top = 5
      Width = 81
      Height = 26
      Caption = 'Excluir'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BtExclClick
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000FF00FFFF00FF
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FF0005B70005B7FF00FF0005B70005B7FF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FF0005B70005B7FF00FFFF00FF0005B7
        0005B70005B7FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0005
        B70005B7FF00FFFF00FFFF00FF0005B70005B60005B70005B7FF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FF0005B70005B7FF00FFFF00FFFF00FFFF00FFFF00FF
        0006D70005BA0005B70005B7FF00FFFF00FFFF00FFFF00FF0005B70005B7FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0005B70005B70005B6FF
        00FF0005B60005B70005B7FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FF0005B60006C70006C70006CE0005B4FF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0006C100
        05C10006DAFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FFFF00FFFF00FF0005B60006D70006CE0006DA0006E9FF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0006E50006DA0006D3FF
        00FFFF00FF0006E50006EFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF
        FF00FF0006F80006DA0006EFFF00FFFF00FFFF00FFFF00FF0006F80006F6FF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FF0006F60006F60006F8FF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FF0006F60006F6FF00FFFF00FFFF00FFFF00FF0006F6
        0006F60006F6FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FF0006F6FF00FFFF00FF0006F60006F60006F6FF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF0006F60006F6
        FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00
        FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF
        00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF}
    end
  end
  object dsClientes: TDataSource
    DataSet = tbClientes
    Left = 37
    Top = 195
  end
  object dsPesqCi: TDataSource
    DataSet = TbPesqCli
    Left = 485
    Top = 56
  end
  object TrClientes: TIBTransaction
    DefaultDatabase = FPrincipal.DBAgecfi
    Params.Strings = (
      'read_committed'
      'rec_version'
      'nowait')
    Left = 252
    Top = 236
  end
  object tbClientes: TIBDataSet
    Database = FPrincipal.DBAgecfi
    Transaction = TrClientes
    DeleteSQL.Strings = (
      'delete from clientes'
      'where'
      '  CODCLIENTE = :OLD_CODCLIENTE')
    InsertSQL.Strings = (
      'insert into clientes'
      
        '  (BAIRRO, CIDADE, CODCLIENTE, ENDERECO, NOME, TELEFONE, TOTAL, ' +
        'TOTALCREDITO, '
      '   TOTALDEBITO)'
      'values'
      
        '  (:BAIRRO, :CIDADE, :CODCLIENTE, :ENDERECO, :NOME, :TELEFONE, :' +
        'TOTAL, '
      '   :TOTALCREDITO, :TOTALDEBITO)')
    RefreshSQL.Strings = (
      'Select '
      '  NOME,'
      '  ENDERECO,'
      '  BAIRRO,'
      '  CIDADE,'
      '  TELEFONE,'
      '  TOTAL,'
      '  TOTALDEBITO,'
      '  TOTALCREDITO,'
      '  CODCLIENTE'
      'from clientes '
      'where'
      '  CODCLIENTE = :CODCLIENTE')
    SelectSQL.Strings = (
      'select * from clientes')
    ModifySQL.Strings = (
      'update clientes'
      'set'
      '  BAIRRO = :BAIRRO,'
      '  CIDADE = :CIDADE,'
      '  CODCLIENTE = :CODCLIENTE,'
      '  ENDERECO = :ENDERECO,'
      '  NOME = :NOME,'
      '  TELEFONE = :TELEFONE,'
      '  TOTAL = :TOTAL,'
      '  TOTALCREDITO = :TOTALCREDITO,'
      '  TOTALDEBITO = :TOTALDEBITO'
      'where'
      '  CODCLIENTE = :OLD_CODCLIENTE')
    GeneratorField.Field = 'CODCLIENTE'
    GeneratorField.Generator = 'GENERATOR_CLIENTES'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 6
    Top = 194
    object tbClientesNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'CLIENTES.NOME'
      Size = 50
    end
    object tbClientesENDERECO: TIBStringField
      FieldName = 'ENDERECO'
      Origin = 'CLIENTES.ENDERECO'
      Size = 50
    end
    object tbClientesBAIRRO: TIBStringField
      FieldName = 'BAIRRO'
      Origin = 'CLIENTES.BAIRRO'
      Size = 50
    end
    object tbClientesCIDADE: TIBStringField
      FieldName = 'CIDADE'
      Origin = 'CLIENTES.CIDADE'
      Size = 50
    end
    object tbClientesTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'CLIENTES.TELEFONE'
      Size = 13
    end
    object tbClientesTOTAL: TFloatField
      FieldName = 'TOTAL'
      Origin = 'CLIENTES.TOTAL'
      currency = True
    end
    object tbClientesTOTALDEBITO: TFloatField
      FieldName = 'TOTALDEBITO'
      Origin = 'CLIENTES.TOTALDEBITO'
      currency = True
    end
    object tbClientesTOTALCREDITO: TFloatField
      FieldName = 'TOTALCREDITO'
      Origin = 'CLIENTES.TOTALCREDITO'
      currency = True
    end
    object tbClientesCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Origin = 'CLIENTES.CODCLIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object TbPesqCli: TIBQuery
    Database = FPrincipal.DBAgecfi
    Transaction = TrClientes
    SQL.Strings = (
      'select CodCliente, Nome, Telefone'
      'from Clientes'
      'where nome like :PBusca'
      'order by nome')
    Left = 448
    Top = 56
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'PBusca'
        ParamType = ptUnknown
      end>
    object TbPesqCliCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Origin = 'CLIENTES.CODCLIENTE'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object TbPesqCliNOME: TIBStringField
      FieldName = 'NOME'
      Origin = 'CLIENTES.NOME'
      Size = 50
    end
    object TbPesqCliTELEFONE: TIBStringField
      FieldName = 'TELEFONE'
      Origin = 'CLIENTES.TELEFONE'
      Size = 13
    end
  end
  object tbCli_LctoCred: TIBDataSet
    Database = FPrincipal.DBAgecfi
    Transaction = TrClientes
    DeleteSQL.Strings = (
      'delete from Clientes_LanctoCred'
      'where'
      '  CODLANCAMENTO = :OLD_CODLANCAMENTO')
    InsertSQL.Strings = (
      'insert into Clientes_LanctoCred'
      '  (CODCLIENTE, CODLANCAMENTO, DATALANCTO, HISTORICO, VALOR)'
      'values'
      '  (:CODCLIENTE, :CODLANCAMENTO, :DATALANCTO, :HISTORICO, :VALOR)')
    RefreshSQL.Strings = (
      'Select '
      '  HISTORICO,'
      '  VALOR,'
      '  CODCLIENTE,'
      '  CODLANCAMENTO,'
      '  DATALANCTO'
      'from Clientes_LanctoCred '
      'where'
      '  CODLANCAMENTO = :CODLANCAMENTO')
    SelectSQL.Strings = (
      'select * from Clientes_LanctoCred'
      'where Clientes_LanctoCred.CodCliente =:PCod')
    ModifySQL.Strings = (
      'update Clientes_LanctoCred'
      'set'
      '  CODCLIENTE = :CODCLIENTE,'
      '  CODLANCAMENTO = :CODLANCAMENTO,'
      '  DATALANCTO = :DATALANCTO,'
      '  HISTORICO = :HISTORICO,'
      '  VALOR = :VALOR'
      'where'
      '  CODLANCAMENTO = :OLD_CODLANCAMENTO')
    GeneratorField.Field = 'CODLANCAMENTO'
    GeneratorField.Generator = 'GENERATOR_LANCTOCRED'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 7
    Top = 130
    object tbCli_LctoCredDATALANCTO: TDateTimeField
      FieldName = 'DATALANCTO'
      Origin = 'CLIENTES_LANCTOCRED.DATALANCTO'
    end
    object tbCli_LctoCredHISTORICO: TIBStringField
      FieldName = 'HISTORICO'
      Origin = 'CLIENTES_LANCTOCRED.HISTORICO'
      Size = 150
    end
    object tbCli_LctoCredVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'CLIENTES_LANCTOCRED.VALOR'
      currency = True
    end
    object tbCli_LctoCredCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Origin = 'CLIENTES_LANCTOCRED.CODCLIENTE'
      Required = True
    end
    object tbCli_LctoCredCODLANCAMENTO: TIntegerField
      FieldName = 'CODLANCAMENTO'
      Origin = 'CLIENTES_LANCTOCRED.CODLANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
  end
  object dsCli_LctoCred: TDataSource
    DataSet = tbCli_LctoCred
    Left = 39
    Top = 131
  end
  object tbCli_LctoDeb: TIBDataSet
    Database = FPrincipal.DBAgecfi
    Transaction = TrClientes
    DeleteSQL.Strings = (
      'delete from CLIENTES_LANCTODEB'
      'where'
      '  CODLANCAMENTO = :OLD_CODLANCAMENTO')
    InsertSQL.Strings = (
      'insert into CLIENTES_LANCTODEB'
      '  (CODCLIENTE, CODLANCAMENTO, DATALANCTO, HISTORICO, VALOR)'
      'values'
      '  (:CODCLIENTE, :CODLANCAMENTO, :DATALANCTO, :HISTORICO, :VALOR)')
    RefreshSQL.Strings = (
      'Select '
      '  HISTORICO,'
      '  VALOR,'
      '  CODCLIENTE,'
      '  CODLANCAMENTO,'
      '  DATALANCTO'
      'from CLIENTES_LANCTODEB '
      'where'
      '  CODLANCAMENTO = :CODLANCAMENTO')
    SelectSQL.Strings = (
      'select *  from CLIENTES_LANCTODEB'
      'where CLIENTES_LANCTODEB.CodCliente =:PCod')
    ModifySQL.Strings = (
      'update CLIENTES_LANCTODEB'
      'set'
      '  CODCLIENTE = :CODCLIENTE,'
      '  CODLANCAMENTO = :CODLANCAMENTO,'
      '  DATALANCTO = :DATALANCTO,'
      '  HISTORICO = :HISTORICO,'
      '  VALOR = :VALOR'
      'where'
      '  CODLANCAMENTO = :OLD_CODLANCAMENTO')
    GeneratorField.Field = 'CODLANCAMENTO'
    GeneratorField.Generator = 'GENERATOR_LANCTODEB'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 7
    Top = 162
    object tbCli_LctoDebHISTORICO: TIBStringField
      FieldName = 'HISTORICO'
      Origin = 'CLIENTES_LANCTODEB.HISTORICO'
      Size = 150
    end
    object tbCli_LctoDebVALOR: TFloatField
      FieldName = 'VALOR'
      Origin = 'CLIENTES_LANCTODEB.VALOR'
      currency = True
    end
    object tbCli_LctoDebCODCLIENTE: TIntegerField
      FieldName = 'CODCLIENTE'
      Origin = 'CLIENTES_LANCTODEB.CODCLIENTE'
      Required = True
    end
    object tbCli_LctoDebCODLANCAMENTO: TIntegerField
      FieldName = 'CODLANCAMENTO'
      Origin = 'CLIENTES_LANCTODEB.CODLANCAMENTO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object tbCli_LctoDebDATALANCTO: TDateTimeField
      FieldName = 'DATALANCTO'
      Origin = 'CLIENTES_LANCTODEB.DATALANCTO'
    end
  end
  object dsCli_LctoDeb: TDataSource
    DataSet = tbCli_LctoDeb
    Left = 39
    Top = 163
  end
end
